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MODULE EDTS ' samme Pate Definition 
{pent = *v04-000' ile: DATA.BLI ‘edit: REM2085 
s 


4d ZTITLE ‘ED Dhy ora, = Common Data Definitions’ 


ia 

; 0 

; 4 §02 
3 2 Booe : BEGIN 

: ‘ od ! i eeeeerererereererereeereeeeneeeeeeeeereererereererereeeneneeeerereeeeeereter 
; 'e * 
: 9 0009 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 * 
é 10 0010 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. * 
$ 1} Bot 3 : * ALL RIGHTS RESERVED. ® 
g '® a 
: ig $018 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND copreD * 
; % 0014 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
s,s 0015 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
i. 0016 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
: 17 0017 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
: 13 id : ee TRANSFERRED. v 
; '® e 
3; @& 0020 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
: 21 0021 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
: $§ i ¢ : :* CORPORATION. * 
s 'e = 
3; @ 0024 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
ee 0025 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
: 26 0026 1 !* a 
ee 0027 1 !« * 
4 28 0028 1 LRA AREA RARER RARER EAAAAAAAAAAAEEAAAAAAAEAEAAAAAERTAARERARAAARAAeAeRE eee 
; % 0029 1! 

3 $9 $086 1 

- 2 0031 1 !++ \ 

3 32 003 1 ! FACILITY: EDT == The DEC Standard Editor 

; 5 0033 1! 

4 4 0034 1 ! ABSTRACT: 

3 5 0035 1! 

; 6 0036 1! This module contains common data definitions used throughout 

3 37 0037 1! the editor. 

: $ 0038 1! 

3 ip 44 : ENVIRONMENT: Used in all EDT configurations. 

: 61 0041 1 ! AUTHOR: Bob Kushlis, CREATION DATE: 6-AUG-1979 

3 $¢ 9k 1! 

; 4 004 1 ! MODIFIED BY: 

; (446 0044 1: 

3 665 0045 1°! Dan Szynensk{. 21-JUL-80, 01 

: 46 0046 1! S part of the “tice key ge get init ten facilities, the default 

s; 67 47 1! definitions for VI52 and vT1 heyeess have been moved to KEYPAD 

s 68 2 The table EDTS$$A_TRN_TBL — contains (relative) pointers to the s ngs 
; «6469 0049 1! of nokeypad commands setining the keys. The variable EDTSSG” TRN_ Tae INI was 
; 20 Bee : added to indicate the initialization of the translation table. 

; 52 26 1 ! Dam Szymanski, 15-JAN-81, 02 

:. 3 053 1! ariable EDTS$G_ DEL! CHLEN added to keep track of length of the deleted 
; e¢ 22 ’ character buffer. 

: 656 0936 1 ! Dan Szymanski. 28-JAN-81, 03 

; 0057 1! ariable EDT$$G_CAS_TYP added to indicate type of changecase. 
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; 8 1! 

3 2B a } 2-004 - Regylepizes 1 # header and removed some symbols not being used. 

; 61 061 1! 2- 83 = Added sors G_10F I ee Pp 19-Feb-1981 

; .§ 062 1! 2- $ - an ed file wo end 8 wt JBS 04-Mar-1981 

3; 6 065 1! 2- - ange EOB_LIN O EDT? E08 . JBS 30-Mar-1981 

; «664 064 1! 2-0 : ~ hdd EQUIRE ior TRAROUNAM? REQT nis 1 cape 1981 

ae 065 1! 2- - Correct a typo in a comment. JBS 01-MAY-1981 

3 896 1! 2-010 = Make the peeked, buffer 256 bytes ong. m 18-Jun-1981 

;  «66f 067 1 ! 2-011 = Add mo ontrol C variables. JBS cere 1981 

; 068 1! 2- \¢ - add REF “us ER ENTITIES vector TMV 3-A 

; 9 8 9 1°! 2-015 = Remove EDTSSA_MAC LST , no ae er coen . ~~ JBS 07-Aug-1981 

; 0 070 1 ! 2-014 = Add EDT$$G_PA_NOQDO . S$ 26-Aug-198 

; 71 0071 1! $2 - eae EDT “RPT . STS 26-Aug-1981 

ta: 0072 1! e=- 1 - Add EDTSS$G_FNF MSGFLG TMV 97 0-Sep-1981 

See 0073 1! 2) - Aad EDTSS6¢_ Pr FLT_VERB for changecase mode. STS 21-Sep-1981 

a 0074 1! 2-= 18 - Add EDT$$G_G_SUMRY to type ou suamery oF or not. STS 01-Oct-1981 

: 75 0075 1 ! 2-019 = Add new aabtibles for text strin 8: STs BE Oc t=1901 

; 0076 1 ! 2-020 = Add strings for prompting. JBS 20-Oct-19 

Wee ig 0077 1! 2-021 = Add variables for r bere and word types. STS_21-0ct-1981 

; 78 0078 1! 2-0 § - Add four more ats amd make max hae th 31 chars. JBS 23-0ct-1981 

: 79 0079 1 | 2-023 = Remove EDT$$Z_RNG mR LANG. JBS 02-NOV-1981 

: 80 0080 1 ! 2-024 - Remove all references to addresses to make sharable, and move 

; «81 0081 1: all initialization out to EDTSINIT. STS 05-Nov-1981 

 s 0082 1 | 2-025 - Add a cell for /VAR and /STREAM. JBS 28-Nov-1981 

; ¢ 0085 1! 2-0 § - Add variables for file i/o routine and nage STS 11-Dec-1981 

; «BS 0084 1 ! 2-027 - Revise control C variables and add one more. S 29-DEC-1981 

3s 68 0085 1 ! 2-028 = Add a flag and a counter for the ' vers tog, mes on 4, JBS 12-Jan-1982 

: 86 00 1! ms? - Add EDTSSL_IO_VFCHD, (this was in IOMOD) STS 20-Ja an-1982 

ca wr 0087 1 | 2-030 = Line numbers declarations moved here from system specific routines. 

; 0088 1! New Line number globals added. SMB 29-Jan-1982 

; «6289 0089 1 ! 2-031 = Change definition of maximum Line gare SMB 1-Feb-1982 

: 90 0090 1! mht - Add more Line number globals. SMB 53-Feb-1982 

so 0091 1! “33 - Add a global for octust count of Lines resequenced. SMB 7-Feb-1982 

; 36 0092 1 ! 2-034 = Add a global for enabli "9 autorepeat manipulation. JBS 09-Feb-1982 

aS. 0095 1 ! 2-035 = Add globals for EDT$WORKIO address and environment. STS 10-Feb-1982 

: 94 0094 1! “338 - Add global for workfile record descriptor. STS 15-Feb-1982 

s 9 0095 1 ! 2-037 = Add global to flag entering and leaving EXT command mode. SMB 26-Feb-1982 

; © 00 1 ! 2-038 = Add callable Literals. STS 08-Mar-1982 

; «#97 0097 1 ! 2-039 - chen r definition of EOB marker. SMB 08-Mar-1982 

;s 98 0098 1! 2-040 - 508 for feneatry, STS 11-Mar-1982 

: 99 0099 1°! 2-041 - agg EDTSSV_OPTIONS. This will replace EDT$$G_CMD and EDT$$G_JOU. JBS 18-Mar-1982 

; 100 0100 1 ! 2-042 - Remove the EDTSK_ symbols to EDTSFILEIO, and Femove EDT$$G_CAD and EDT$$G_JOU. 
+: 101 319) 1! JBS 23-Mar-1982~ 

: 43 44 1 ! 2-043 - nae tops, &e e toeicate input file and/or command file o open STS 07-Apr-1982 

; 10 0103 1! 2-044 - indicate quotes around key. STS 08-Apr-1 

3; 6104 Hs 1 ! 2-045 - aga Dre. jou. VALID. JBS OpoApra zee 

; 105 105 1! “208 - Add EDTSSA_COM-NAM. JBS 04-m aye V9Re 

; 18 0106 1 ! 2-047 = Add EDISSA7CHATN INFO and EDT$$G_CC_DONE. JBS Sane 1304 

3 18 bibs 1! 2= #8 ~ Add EDT$$G_MESSAGE_ LINE for change mode messages. SMB 15-Jun-1982 

; 108 H's 1 ! 2-049 = Add EDT$$G_CHM_FRST_EN NTERED for callable edt. SMB 1-Jul-1982 

; 109 109 1 ! 2-050 = Add EDT$$G FMT BOT, EDTS$$G_FMT Lest _and ED 1$86 _LASTMSG, remove 

s 10 110 1! EDTS$G_CHA_FRST ENTRY. Sas Ph Satty 

es 911 111. 1 ! 2-051 = Remove EDTS$3T_PMT PRTC. s¥ 0 at {398 

: 18 By 1! 2- 2¢ - Add EDT$$G_SAD_TIQID to save terminal width. STS 08-Jul-198 

s ¥7 11 1 ! 2-053 = Remove EDTSSA_STR_CMP, add EDT$$B_CHAR_INFO. JBS 19-Jul-1982 

: 114 9114 1°! 2-054 = Add descriptor for signalled filename.” STS 10-Jul-1982 


——_—— ------— -—-- 
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Initialize EDT$$G_PST_CNT to zero. SMB 22eJul-1982 SMB 30-Jul-1982 
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Add EDTS$G_TI_SCROLL and EDT$$G_TI_EDIT. JBS 01-Sep-1982 
I1_WRLA, fo Longer ys . JBS 02-Sep-1982 


1 ) 
-EOB_LN again. SMB 20-Sep-1982 
Add a screen pointer global for EOB. SMB 05-Oct-1982. 

Add a flag to indicate we must! do @ gus to journal file. STS 06-Oct-1982 
Add EDTS$G_SCR_REBUILD. JBS 09-Oct-1982 

Add new select buffer global. SMB 11-Oct-1982 

Add EDTS$G_TI_DUMB. JBS 16-Oct-1982 

Add memory alTocation maximum global. SMB 18-Oct-1982 

Add a counter for records inserted. JBS 21-Oct-1982 

Make the counter also count records deleted. JBS 27-Oct-1982 

Add EDT$$G_BOT_LINE. JBS 02-Dec-1982 

Remove cells which aepeer to be unused. JBS 14-Dec-1982 

Add EDTS$$G 
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€ ec-19 
Add scrolling region globals. SMB 11-Jan-1983 
EDTSSG_RECSCRUPD. JBS 21-Jan-1983 
Add conditionals for WPS and vT220 support. JBS_ 10-Feb-1983 
Add new value for EDT$$G_SCR_CHGD. JBS 02-Mar-1983 
Add character names table. JBS 04-Mar-1983 
Add write message cell. JBS 24-Mar-1983 
Add cell to remember insert/replace mode. JBS 01-Apr-1983 
Add cell to remember rel record no of top screen Line. JBS 04-Apr-1983 
Add cell to flag any changes, to avoid scanning in screen udpate. JBS 05-Apr-1983 
hdd cell EDTS$G_DEC_CRT to indicate terminal's ‘‘service class’’. REM 02-Mar-1984 
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T$$G"WRITE_MSG. 
T$$G~EXITD 


abort os write being done 
Print this message before next WRITE or EXIT 


Set to indicate the editor has exited 
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189 759 '¢ : 
139 re0 } The remainder of this module defines storage used throughout the editor. 
13¢ 76 
19 76 A 
194 764 EDTSST_CMD_BUF : BLOCK CCHSALLOCATION (256)], ! Command Line buffer 
195 0765 EDTSSA_CMD_BUF, : Pointer into command buffer 
138 08 EDTSSA_CMD_END, ! Pointer to end of command 
19 6 EDTS$G_CMD_LEN, ! Length of command buffer 
198 68 EDTSS$T_LN_BUF : BLOCK CCHSALLOCATION (256)], ! Current Line buffer | 
199 69 EDTSSA_LN_PTR, ! Pointer to char in current Line 
00 70 EDTSSA_LN_END, ! Pointer to end of Line 
4! 4 EDTS$G_LN_LEN; ! Length of current Line 
08 18} Gtosa 
04 74 T$$G_INPUT_OPN, indicates main input file open 
05 75 T$$G_CMD_OPN, indicates command file open 
08 76 TS$G_EXT_MOD : INITIAL (0), 1 = in EXT command mode 
0 77 T$$G_EDIT_MOD Current editting mode 
08 78 T$$G_EDIT-DFLTMOD, The mode to enter after startup. 
09 79 T$$G_SAV_CNT Flush count for audit trail. 

80 T$$G_ABT WRITE 

8 

83 
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T$$G_CMD-NAMLEN, 
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Pointer to input file name 
Length of input file name 
Pointer to output file name 
Length of output file name 
Pointer to command file name 
Length of command file name 
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E 
E 
E 
E 
E 
E 
2 E 
2 84 E 
2 85 E 
§ 86 E 
87 E 
§ 88 E 
89 EDTSSA_JOU_NAM, Journal file name 
2 90 EDT$$G_JOU_NAMLEN, Journal file name Length 
rs 91 EDT$$G_PUT_JOU 
2 38 E T$$G_VARTABLE : INITIAL (0), ! 1 = /VARIABLE, -1 = /STREAM, 0 = neither (RSTS/E only) 
2 9 EDTSS$V_OPTIONS, ! Options bits : 
2 94 EDTSSA_CHAIN_INFO : INITIAL (0), ! Pointer to chain information (RSTS/E only) 
§ 95 EDTS$$G_NOS, ! Line numbers enabled flag 
96 EDTS$$G_CAS_FLG ' Flag case (upper, lower none) 
97 EDTS$G_EXCT_MATCH, i Exact matches required? 
98 EDT$$G_SEA_BEG, ! End searches at beginning? 
$5 99 EDTS$$G_SEA_BNDD, ' Search bounded? 
00 EDT$$G_QUIET, ' Quiet mode 
231 01 EDTS$G_RPT, ! Allow repeat counts? 
§ Hh EDTSS$G_FNF_MSGFLG, : Print file not found message 
80 EDT$$G_DEC_CRT ! Terminal's ‘'service class 
804 EDT$$G_EIGAT_BiT, i Eightbit mode 
35 805 EDTS$G_VFY, ! Do we verily command files? | 
36 806 EDTS$$G_JOU_IFI ' Internal File Identifier for journal file ; 
37 807 EDT$$G_JOU_VALID, i 1 = journal record is valid, 0 = it isn't, don't write. 
38 808 EDTSSA_ALT BUF : REF TBCB_BLOCK, ! Alternate buffer for copy etc. ; 
39 809 EDT$$G_SECOND : VOLATILE, ; Set once a second (using an AST) for the ‘working’ message 
40 810 EDT$$G_WORKCOUNT ! Counter to support the ‘working’ message 
41 811 EDT$$G-CC : VOLATILE, ! Set when control c is typed. 
$g 316 EDTS$$G_CC_CNT1_LO, ! Times tested since last journal record 
4 81 EDTS$$G_CC_CNT1_HI, ! High half of the above 
ah 814 EDT$$G_CC_CNT2_LO, ! Second control C counter 
45 815 EDT$$G_CC_CNT2_HI, ! High half of the above 
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> 246 16 1 EDTS$G_CC_FLAG, ! Second control C flag 
; 247 “7 3 EDTS$$G_CC "DONE, ! Set if control C has been acted upon 
: 48 18 #1 EDTS$G_REENTRY INITIAL (67) ! flag for re-entry 
8 49 8 19 1 EDTS$G_ oft Tyee ! Terminal type. 
; 250 0 1 EDTS$$G_TI"PLEN ' Terminal page length 
; 251 08 1 1 EDT$S$G_TI-RESEf : INITIAL (0), i Terminal char have been reset 
; 26 8 ; 1 EDTS$G =SAV_TIWID, ! original terminal width 
oR 08 1 EDTS$A_CUR_BUF : REF TBCB_BLOCK, ! The current text huffer control block 
> 254 0824 1 EDTSS$A_ ~ARY BUF : REF TBCB_BLOCK, ! Previous tbcb address. 
s 29° 0825 1 EDTSSA_MAC_BUF ; REF TBCB_BLOCK, ! Pointer to current macro tbcb 
3 56 0826 1 EDTSSA_ poe “BUF : REF TBCB_BLOCK, ! Pointer to paste buffer 
: ef 3 , on EDTSSA_BUF “LST, ! List of active text buffers. 
3 8 & 1 EDTS$G_ KPADS ' Use the keypad? 
: 259 0829 1 EDT$$G “ib WRAP, i word wrap? 
; 260 0830 1 EDTS$A_US_ENT : VECTOR ete ! Pointers to user defined entities. 
; 261 0831 1 EDTSS$A_US-TXT : VECTOR [2], ' Address of user defined texts 
; soe oes 1 EDTSSA_COP_NAM, ! Address of command file name 
: $6 0833 1 EDT$$G_TAB_SIZ, ! Structured tab size. 
; 2646 0834 1 EDT$$G_TAB_LVL, ' Structured tab level. 
; 265 0835 1 EDT$$G_TAD ! Tabs adjust level. 
; 266 0836 1 EDTS$$G “INP_S§RC, ! Source of command input. 
$ sor 0837 1 EDT$$G_INP_CNT, ' count since last flush. 
; 268 0838 1 EDT$$G_RCOV_MOD, ' Are we in recovery mode. 
3 $89 44 : EDT$$G_RECSCRUPD; i Counter for updating the screen in recovery mode 
s eri 0841 1 GLOBAL BIN 
s ée pets 1 EDTS$B_ CHAR_INFO = UPLIT (BYTE (CHAR_INFO)); 
3: es 0843 1 
: 276 0844 1 GLOBAL BIND 
; $f Bete : EDTSSAL CHAR_NAMES = UPLIT (BYTE (CHAR_NAMES)); ! Names of some characters 
g are 0847 1 CRO 
: 278 M0848 1 LENGTH (LIST) = 
: 279 0849 1 LENGTH 2; 
; 280 0850 1 
; 281 0851 1 GLOBAL LITERAL 
5 $Bs $826 } EDTSS$K_CHAR_NAMES_LEN = LENGTH (CHAR_NAMES); 
: 286 0854 1 UNDECLARE XQUOTE 
: ee 0855 1 LENGTH; 
; 286 0856 1 
: 287 0857 1 !+ 
; 288 0858 1 | Change mode data declarations. 
; $89 +84 1 i+ 
; 290 860 1 
; 291 0861 1 GLOBAL 
: 292 0862 1 EDT$$G _LN_CHGD, ! Indicates current Line has changed. 
: 293 0863 1 EDTS$$G_ cor, ! The column we should be on. 
: 294 0864 1 EDTS$$G_DIR ! The current direction. 
: 95 0865 1 EDTS$T~DEL_L BLOCK ' Deleted Line buffer. 
3 38 943 1 CASALCOCATION (257)], 
; 1 EDTS$G_DEL ~tNL LEN ' Length of deleted Line. 
> 298 68 1 EDTS$$T-DEL-WD : BLOCK i Deleted word buffer. 
: 299 9 1 CCASALCOCATION (810), 
; 300 870 1 EDTS$G_ pet “ween ' Length of deleted word. 
; 301 0871 1 EDT a 6LO i Deleted character buffer. 
: 02 0872 1 CREALCOCATION (500, 
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Declarations 14- 984 DISKSVMSMASTER: CEDT.SRCJDATA.BL1;1 (3) 
; 3 73° «1 EDTS$G_DEL_CHLEN, ' Length of deleted character. 
; 306 74 «1 EDTS$G_DIR_MOD, ! The directional mode: 
; 305 7 = ! =1 for backup, 1 for advance. 
: 06 76 «(1 EDTS$G_EX!1 
; wy 77 (1 EDTS$G_REVID ' reverse video on? 
; 308 78 1 EDTS$$G_INSERT_MODE, i Insert mode on (Os = replace mode) 
; 309 79 «1 EDTSSG_VERT ! was last entity V 
; 310 80 1 EDTS$G_PST_CNT : INITIAL (0), ! No. of seerectees posted 
ae bp : = EDTSSA_SEA_STR, ! search string address. 
3 \§ 8 ¢ 1 EDTS$G_ SEA. LEN, ' search string length 
s 351 8 1 EDTSSA_R CnSTR: ! replace string address 
3 9 : : : EDTSSG_ RPE “LEN, ! replace string length 
é 18 L tf, 1 ZIF SUPPORT_WPS 
ome 0887 1 XTHEN 
; 318 888 1 EDTSSG_CAS_TYP, ! Type of changecase being pertormed 
: 319 889 1 EDT$$G_DFLT_VERB, ‘ Berault verb (move, chgu, or chgl) 
3 $9 890 1 EDTS$$G_SUMRY ' type out summary or not on exit 
3 1 0891 1 EDTS$G_ WRDTYP, ! delimiter a word or not flag 
; $§ 0892 1 EDTS$G_PARTYP, ! wes para or regular para flag 
: Si $894 1 we 
; $2 944 ! EDT$$G_TRN_TBLINIT; ! True if translation table has been initialized 
; 358 0897 1 !+¢ 
; 328 0898 1 | Globals for the new screen updater. 
3 $3 0899 1 i- 
; 0 0900 1 
3 35) 0901 1 GLOBAL 
3 $ 0902 1 EDTS$G _MEM_CNT, ! Memory allocation count 
; $3 0903 1 EDTS$A_OLD_ SEL. ! Address of old select buffer 
3 ; 0904 1 DT$$G_TR ' Truncate or wrap long Lines? 
; 335 0905 1 EDT$$G_T1I_wiD, i width of terminal Line 
; 336 0906 1 DT$$G_TI_SCROLL, ; 1 = terminal has scrolling regions 
. a 0907 1 EDTS$G_TI_EDIT, 1 = terminal has ‘edit’ features (DL, IL, DCH, ICM) 
; 338 0908 1 EDTS$G_TI_ DUMB ! 1 = terminal driver does ret track escape sequences (needs CR to avoid wrap) 
3; 339 0909 1 EDT$$G_TOP_SCREG, ! Top of current scrolling region. 
3 0 9919 1 EDT$$G_BOT_ SCREG, ' Bottom of current scrolling region 
: 1 0911 «1 EDT $6_SCLC_ TOF, ! top Limit of cursor before scrollin Ae 
; ¢ Bate 1 EDTS$$G_SCLL_BOT, ! bottom Limit of cursor before scrolling 
3 091 1 EDT$$G_SCR_CNS ' number of screen Lines to use 
> 344 0914 1 EDT$$G_SCR~CHGD, i see below 
: 45 0915 1 !t¢ 
: § Bats 1! 0 = screen OK, 
: 1 1! 1 = screen must be cleared and repainted, 
3 re Bais } 2 = terminal must be initialized, then screen cleared and repainted. 
5 50 0920 1 EDTS$G_ sce REBUILD, ! The text area of the screen must be rebuilt from the work file 
; «351 921 1 EDT$$G_TXT-ONSCR ' command put text on screen. 
3 6 9 § 1 EDTS$G_ “RECS. INSERTED, ' Count of records inserted and deleted since last screen update 
: 5 1 EDT$$G_SHF,~ The number of columns shifted. 
; 354 924 1 EDTSSL_SEL_LN : Relative Line number of select. 
: 355 5 1 EDTS$A~SEL BUF 2 REE art) BLOCK, i select buffer. 
; 28 9 § 1 EDTS$$A_SCR” BUF : REF TBCB-BLOCK ' Screen text buffer control block 
> 35 1 EDT$$G “HE SSAGE _LINE : INITIAL (22), i Change mode message 
: 58 928 1 EDT$$G_MSGFL ' Indicates a message has "een displayed 
; 359 0929 1 EDTS$G_ “PASTAS, ! Number of the last message displayed 
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2:15:47 VAX=11 Bliss-32 V4.0-74 Page 
Declarations 14-Sep-1984 99:33:83 DISKSVMSMASTER:CEDT.SRCJDATA.BLI;1 . ( 
: 930 1 EDTS$G_LN_NO ' current Line number. 
; 931 1 EDT$$G_CUR_COL, i current column 
; 9 ¢ 1 EDT$$G_CS_CNO ' cursor Line number 
3 9 1 EDTS$G_CS_CHN’ ! character pos ttton of cursor 
; 934 1 EDT$$G_CS_OLDCHNO, ' Previous character position of cursor 
; 935 1 EDTSSL_CS_LN : LN_BLOCK, ! relative Line number of cursor Line. 
; 9 § 1 EDT$$G_PRV_LN, ' Previous Line number. 
3 9 1 EDTSS$G_PRV_COL, ! Previous column number. 
3 938 1 EDTSSL_TOP_LN : LN_BLOCK, ! Line number of enforced top Line. 
; 0939 1 EDTSSA_SEL_POS, ! select position. 
; 0940 1 EDTSSL_CUR_SCRLN : LN_BLOCK, ! Current screen record 
3 Bee: 1 EDTSSA_EOB_SCRPTR, ! €OB sceen pointer 
3 rk 1 EDTSSA_CSR_SCRPTR, ! Pointer to cursor screen Line info 
3 0943 1 EDTSSA_FST_SCRPTR, ! Pointer to first screen Line info buffer 
3 0944 1 EDTSSA_LST_SCRPTR, ! Pointer to last screen Line info buffer 
3 0945 1 EDTSSA_CUR_SCRPTR, ! Pointer to current screen Line info buffer 
3 0946 1 EDTSSA_TOP_SCRPTR, ! Pointer to the top screen Line 
3 0947 1 EDTSSA_BOT_SCRPTR, ! Pointer to the bottom screen Line 
; 0948 1 EDT$$G_BOT_LINE : ALL screen Lines below this one have been erased 
; 0949 1 EDT$$G_TOP—RECNO ! Relative record number of top screen Line 
5 0950 1 EDT$$G_ANY— CHANGES, ! 0 = no edits since last screen update 
3 B32) ; EDTSSA_FST_AVLN; ! Number available screen Line blocks 
; $988 1 GLOBAL 
; boee ! EDTSSA_TRN_TBL : VECTOR CK_KPAD_HASHSIZ]; ! Hash table of key definitions 
; 0956 1 GLOBAL : 3 
3 0957 1 EDTS$$G_ENB_AUTRPT, ! 1 = enable autorepeat manipulation. 
3 0958 1 EDT$$6_K_A0 ‘ ! auto repeat indicator. 
; 0959 + EDTS$$T_RBDAHED : BLOCK CCHSALLOCATION (K_RDAHED LEN) J, ! Read-ahead buffer 
3 poey : EDTS$$G_RDAHED; ! Number of characters in the buffer 
: 344 1 !¢ 
: 0965 1 ! Global data used by EDTWF 
; 0964 1 !- 
; 0965 1 
; 0966 1 GLOBAL 
; 0967 1 EDTS$G_WK_AVAIL, 
; 0968 1 EDTS$$G_WK_CURBUK, 
; 0969 1 EDT$$G_WK_GRTSTBUK, 
; 0970 1 EDTS$G_WK_MODFD ; . , 
: 0971 1 EDTS$L-WK-NXTLNO : LN_BLOCK, ! Line number following an insert 
; 0972 1 EDTSSL_WK_ NO : LA BLOCK, ! Line number of Line preceding an insert 
3 973 1 EDTSSL_WK_INSCNT : LN_BLOCK, ' The count of inserted lines 
; 974 1 EDTSSL_WK_RESCNT : LN BLOCK, ! The count of resequenced Lines 
3 0975 (1 EDTSS$A_WK-LN : REF LIR BLOCK 
§ 0977 : EDT$$A_WK-BUK : REF BLOCK Cwf_BUKT_SIZE, BYTE) FIELD (WFB_FIELDS); 
: 978 1 !+ 
3 ret 0980 ! This literal is pointed to when we are at an end of buffer. 
rit 982 | GLOBAL BIND 
; ci8 i 5 : EDT$$Z_EOB_LN = UPLIT BYTE(O, REP 6 OF (255), REP 6 OF (0)); 
3 6415 985 1 !¢ 
3; 416 9 1 ! Data used by FORMAT 
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GLOBAL 
ED 
ED 
ED 
Et 
ED 
ED 
ED 
ED 
ED 
ED 
ED 
ED 
ED 
ED 
ED 
ED 
ED 
ED 
ED 


tg 


TS$C~PA~ 
$32 PA~CURRNG : REF NODE_BLOCK, 


Data used by EXEC 


$G_PA_ABO, 

$$ Y 
$SA_PA_TBLPTR, 
$ 


THD 
PA_C 


$$A_PA_PRVTO 


$$6 
$$G~PA~CURCMD, 
$S$L-PA_NUMVAL : LIN_BLOCK, 
$$G"PA-NOQUO, 

$$27"PA"STK : BLOCKVECTOR CNUM_NODES, 


PARAAMK 


Data used by RANGE 


$G_RNG_MORELN, 
$G"RNG_FRSTLN, 
$G~RNG_NOOF LN, 

$L-RNG-EOL : LN_B 
$7“RNG-CURRNG : 


14 
Data used by Line mode parser 


7"PA_THRURNG : REF NODE_BLOCK, 
“PA_PCENT, 
$$G_PA_ERRNO, 
$$6_PALTOKCLASS, 


$$27"PA"BUFRNG : REF NODE BLOCK, 
$$7~PA-ANDLS 


: REF NODE_BLOCK, 


“PA~PRVTOKLEN, 
RCM 


BLOCK 
REF NODE_BLOCK, 


16 
$ep-1984 00:15:47 VAX-11 Bliss-32 V4.0-74 
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1 = formatted output printed on bottom of screen 
Number of Lines printed at the bottom of the screen 


flag indicating to abort parse 

f leg ene 16a% tee getting a key 

pointer into the parse table 

the currently being processed character 
the current range node 

The currently being built thru type range 
Did the keyword contain a percent? 

Error number of parsing error. 

class of current token 


start of the current token 
length of current token 
Previous token address 
Previous token Length 


the value of a numeric Literal 
ress 


! 1s 43 9 
NODE_SIZE, BYTE] FIELD (NODE_FIELDS); 


Used by EDTSSNXT_LNRNG to indicate more Lines. 


Indicates first Tine in a range. 
Count of number of Lines in a range. 

The Line number at which this range ends 
The current range node 


uoted strings when scanning a token 


, is 


+ 

Data used for callable EDT 
ZIF ZBLISS (BLISS32) 

ZTHEN 


GLOBAL 

! address of translation routine : 

! environment word for translation routine 
! address of routine for work t 

! environment word for work i/o routine 

! address of routine to use for file i/o 

! environment word for above 


wr 
bad 
4 

x 
t 

=a 
Cc 
. 


RFI 


'¢ 
i define literals for the bit masks of the options word. 
i These are made global so that we can make them accessible 


EDTSDATA EDTSDATA = Common Data Definitions BS -1984 5:47 VAX-11 Bliss-32 V4.0-7 Page 10 
v04-000 Declarations 4-Sep sats ri 99: 33 752 DISKSVMSMASTER: cebT. sre DATA.BLI;1 . (3) 
: 474 1044 1 EDT ib + NG_ORIGPOS : POS BLOCK, ! To save the position at start of command. 
; $f? ! rf ! EDTS$Z~“RNG_SAVPOS : POS_BLOCK; ! To save the beginning of range 
3 ri 1 23 1 

3 ois 1 rk 1 ! Data used by TINPUT 

s 67 1049 1 

; 480 1050 1 

; 481 1051 1 GLOBAL 

; 48 1326 1 EDTS$G_TIN_ECHOFLG, 

; 48 1055 1 EDTS$$G_TIN_ECHOPOS, 

> 484 1054 1 EDTS$$G_TIN_OBUFPOS, ! Next oye to ptere in journal buffer 
: 485 1 2? 1 EDTSST_TIN_OBUF : VECTOR (256, BYTE], ! Journal file buffer 

: 486 1056 1 EDTSSA_TIN_IBUFPTR, 

; 487 1057 1 EDTS$G_TIN_IRECLEN, 

; 488 1928 1 EDTS$$G_TIN_IRECEND, 

; 489 1059 1 EDTSST_TIN_INREC : BLOCK [CCHSALLOCATION (255)]; 

; 490 1060 1 

: 4491 1061 1 !¢ 

; 49 1966 1 ! Data used by UTIL 

; 49 1063 1 i- 

3; 494 1 1 

; 495 1 1 GLOBAL 

; 496 1 1 EDT $S$T_SEA_STR : BLOCK CCHSALLOCATION (64)], ' Last pica string. 

; 497 1 1 EDTSSG_SEA-STRLEN, ! Length A x 

; 498 1 1 EDTSS$T_SUB_STR : BLOCK CCHSALLOCATION (64)], t SUBSTITUTE string. 
; 499 1 1 EDTS$$G_SuUB_ STRLEN; ! Length fy chou, 

; 500 1 1 

3 301 1 1 !¢ 

3 4 1 1 ! Data used by IOMOD 

; ww 1 1 !- 

; 504 1 1 

; 05 1 1 GLOBAL 

: 506 1 1 EDTSSL_IO_VFCHD : BLOCK SCS L CAT ION (255)], 

; 50 1 1 EDTSS$Z_WF_DESC : “BLOCK (8, BYTE, ! descriptor for workfile 

: 1 1 EDTSS$A_I0_FNAM, i filename in signal arguments 

3 : : EDTS$$G_IOF1_NFND; ! 1 = the open error was ‘file not found" 
3 1 1 

3 1 1 

3 1 1 

: 1 1 

3 1 1 

: 1 1 

3 1 1 

Z 1 1 

: 1 1 

: 1 1 

: 1 1 

s 1 1 

3 1 1 

3 1 1 

3 1 1 

3 1 1 

3 1 1 

: 1 1 

A 1 1 

s 1 1 
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1128 1 
1159 0 ELUDOM 


00000000 


00000 
00100 
00104 
00108 
0010C 
0020C 
00210 
00214 
00218 
0021C 
00220 
00224 
00228 
0022C 
00230 
00234 
00238 
0023C 
00240 
00244 
00248 
0024C 
00250 
00254 


PSECT 
EDTSST_cMD BUF: 
EDTS$A_cHD BUF 
EDTS$SA_CMD_END:: 

-BCKB 
EDTS$G_CMD LEN: : 
EDTS$T_LN BUF 
EDTSSA_LN_PTR:: 

-BLKB 
EDTSSA_LN_END:: 

BLKB 
EDT$$G_LNLEN:: 


EDTS$$G_ INPUT OPN: : 


EDTS$G_CRRCOPN:: 
EDTS$$G eit MOD: : 
EDTS$$G_ “edie mops” 
EDTS$$G_ “eo DFLT 
EDTS$$G_ SAV ONT: 


V4.0-7 Page 
SCEDT g 


12 
SRC DATA.BLI; 1 (3) 


EDTSDATA EDTSDATA = Common Data Definitions 
\V04-000\ 
-EDTSDATA,NOEXE, PIC,2 


256 


MOD: 
4 


K ‘4 
EDTS$G _ABT WRITE: 


K 
EDT$$G WRITE MSG:: 


LK 
EDTS$G_ -EXITD: 
EDTSS$A_INP_NAM: 


-BLK 
EDT$$G_INP_NAMLEN: : 
K 4 


EDTSSA OUT "le 
EDTS$G OUT NAMLE 
EDTSSA_ CMD ts 
EDT$$G_CMD NAMLE 


i 
4 
4 
"* 
N 


rc 
te 


4 
N:: 


-BLK 
EDTS$$A_JOU_NAM: : 
-BCKB 4 


4 


<m 
co * 
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00258 EDT$$G ~0y pane bt 
0025¢ EDT$$6 Pur JOU:: 
00000000 00260 EDTS$$6 -VARTABLE: : 
00264 EDT$$Vv -OPTIONS: : 
00000000 00268 EDTS$A_CHAIN_ INFO: : 
0026C EDTS$G_ NOS: 
00270 EDTS$$G_ “chefs: 
00274 EDT$$G_ ‘sit bai b 
00278 EDT$$G “sth BEG: 
0027¢ EDTS$$G -SEA-BNDD: : 
00280 EDT$$G_QUiET:: 
00284 EDTS$G_RPT?:. 
00288 EDT$$G_ FE MSGFL bt 
0028C EDT$$G vit CRTs: 
00290 EDT$$G_EIGHT BIT:: 
00294 EDT$$G_VFY: 
00298 EDTS$$G one 
0029¢ EDT$$G ~0u eae : 
002A0 EDTS$A ~All ce 
002A4 EDT$$G_SECOND: 
002A8 EDT$$G_WORKCOUNT: : 
002AC EDTS$6_cts 
00280 EDTS$6_CC ENT! _LO:: 
00284 EDT$$G_CC CNT Ad: 
00288 EDTS$6_c¢ CNT2_LO:: 
0028¢ EDTS$6_cC CNT HI: 
002c0 EDTSS6_cC FLAG:: 
002¢4 EDTSS6_cC DONE: : 
00000043 002C8 EDT$$G_REENTRY:: 


147 
:52 
N 
4 
s 
0 
4 
0 
0 
4 
4 
H 
4 
4 
4 
4 
G 
4 
"4 
4 
4 
4 
4 
4 
4 
4 


4 
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Declarations R: 9 


ceo Ske DATA.BLI;1 G 
002CC EDTS$$G_Ti mitt 
00200 EDTS$$G_ Ti iF ., 

00000000 002D4 EDT$$G_TI RESET: : 
00208 EDT$$G_ -siy Tubs: 
002DC EDTS$$A_ cUR BUF 
O0O2E0 EDTSSA Pi 8 BUF : : 
002E4 EDTSS$A_MAC BUF 
0O2E8 EDTS$$A “pate +" gle 
OO2ZEC EDTS$A pir bates 
002FO EDTS$$G_ KPADS 
002F4 EDT$$G wd UB 
O02F8 EDTSS$A us ENT: 2 
00308 EDTS$$A _us iy 2 
00310 EDT$$A_ COM_NAM: : 
00314 EDT$$G_ “ti S12: 
00318 EDT$$G rit Kon 
0031C EDT$$G_TADJ: 
00320 EDT$$G “ibe: 
00324 EDTS$G_INP- CNT: 
00328 EDT$$G_RCOV_MOD: 
0032C EDT$$G Sf 
00330 EDTSSG_LiV CHGD: 
00334 COTSS6 COL 
00338 EDT$$G_DIR:: 
0033C EDTS$T =DEL Nz: 
00440 EDT$$G ~PEL LALEN) 3 
00444 EDTSOT DE) i . 
00498 EDT$$G_DEL_WDLEN:: 

-BCKB 4 
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00000000 


Seats 90: 


0049C 
004A0 
004A4 
004A8 
004AC 
00480 
00484 
00488 
004BC 
004C0 
004C4 
004C8 
004CC 
00400 
00404 
00408 
0040C 
004E0 
004E4 
004E8 
004EC 
004F0 
O04F4 
004F8 
OO4FC 
00500 
00504 
00508 
0050C 


122: 
EDTS$T_DEL_CH:: 
EDT$$6G vit ss 
EDT$$G_DIR_ MOD: 
EDTS$6_EKI 7: 
EDTS$$G_ réViD: : 
EDTS$G_ “WRERT _MO 
EDTS$¢_véRTC. 
EDTS$G_PSTCCNT:: 
EDTS$A_ sta. STR:: 
EDTS$$G_ “sth LEN: 
EDTS$A “Riees STR: 
EDT$$G_RPL LENS: 
EDT$$G_CAS TYP 
EDTS$$G_ DELT VERB: : 
EDTS$G_ “sinter: 
EDT$$G “watts: 
EDTS$G_ “pART Es: 
EDTS$$G_ fy es 
EDTS$G_MEM CNT: 
EDTS$$A_OLD spt 
EDTS$G_ TRUN: 
EDT$$G_Ti WiD:: 
EDT$$G_Ti sfout 
EDTS$$G_Ti EDIT: 
EDT$$G_Ti Ue 
EDTS$$G_ “rép. Snes 
EDT$$G “pores SCREG: : 
EDTS$$G_ “sites TOP: : 
EDTS$G_ “sétt _BOT: 


See he eR Ree RRR EER 8 OR Be RR RR BOR BOR BR OR ENS 


EDTSDATA 
v04-000 


EDTSDATA = Common Data Definitions 


Declarations 


00000016 


00534 
00538 
0053¢ 
00540 
00544 
00548 
0054C 
00550 
00554 
00558 


0055E 
00560 


00564 
00568 


Q056E 
00570 


00574 


OS7A 
057C 


00580 
00584 


.-BLKB 
EDT$$G_SCR LNS:: 
EDT$$G_SCR Seo: 
EDT$$G_SCR REBUILD: : 
EDTS$G_TXT ONSCR: : 
EDTS$G_RECS INSERTED: : 
EDTS$$G_SHF:: 
BLK 
EDTS$L_SEL_LN:: 
.BCKB 
-BLKB 
EDTS$A_SEL BUF 
EDTSSA SCR BUF : 
EDT$$G we ibe L 
EDT$$G -NSGFLG:: 
EDT$$G abasregst® 
EDT$$G_LN NO: : 
EDT$$G_CUR COL: 
EDT$$G_CS UN: 
EDT$$G_CS$ CHNO: 
EDT$$6_CS o.Bcom 
EDTS$L_CS_LN: 
BLKB 


NE: 
2 


-BLKB 
EDTSSG_PRY LN: 
EDTS$6_PRY COL: : 
EDTS$L_TOP_LN:: 

.BCKB 


-BLKB 
EDTSSA SEL P POS: 
EDTS$L_CUR SCRLN: 

BCKB 


~-BLKB 
EDTS$A £08 SCRPTR: 
EDTSSA_CSR SCRPTR: 
EDTSSA_FST SCRPTR:: 
-BCKB 4 
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00588 EDTS$$A_LST_SCRPTR:: 
0058C EDT$$A_CUR SERPTR: : 
00590 EDT$$A_TOP_SCRPTR:: 
00594 EDTSSA, B01 SCRPTI: 
00598 EDT$$G_BOT LINE:: 
0059¢ EoTS86_10P RECNO: 
005A0 EDTSSG_ANY CHANGES 
005A4 EDTSSA_FST aa 
005A8 EDTS$A_TRN_TBL: 
008C4 EDT$$G “eis reef 
008C8 EDT$$G_K Aut 
OO8CC EDTS$T _RDAHED: : 
OO8EC EDTS$G “pb AuEDr: 
008F0 EDT$$G “wich 
008F4 EDT$$G_Wk CURBUK : 
008F8 EDT$$G_Wk UG hk: | 
O08FC EDTS$$G_wk MODED: 3 
00900 EDT$$L_wk NXTLNO: : 
BLKB 


-32 V4 wits 
ER: CEDT.SRCJDATA.BLI;1 


ma eee Regen Bimrerg mnohert 
“Oo 


-BLKB 
8 EDTS$L ae ier 


0. 

of -BLKB 

10 EDT$$L_WK_INSCNT: 
BLKB 

16 -BLKB 

18 EDTSSL =Wk RESCNT 


0920 EDTS$$A West 
00924 EDTS$A_ wk BUR : 
00928 EDTSS$T_FMT ie 
00B28 EDTS$A_ “Fie ces 
QOB2C EDTS$$G_ FMT LMPOS; 
00B30 EDTSSA_FMT YURRUT: 


fee ee 
~m 


H 1 
Ou 000. Rate 1ergeb13be 93:33:83 — WEEKSUMGMASTERSEEDToSRCSDATA.eLI;1 29° ch 
-BLKB 
00834 EDT$$6 FAT BOT:: 
00838 EDT$$G FAT LNT: 
ooe3r EDTSSG_EXE SUBCNT 
00840 EDTSS6_ExE New Ss: 
00B44 EDT$$G_EXE SBITS:: 
00B48 EDT$$Z_EXE SBLK: | 
00B4C EDTSSA_EXE CURCMD : 
00850 EDTS$6_PA ABO: : 
00B54 EDT$$G_ -DEFKEY: 
00858 EDTS$A_PA_TBLPTR: 
OOBSC EDTS$$C_PA CH 
00860 EDT$$Z_PA CURRNG: : 
00B64 EDT$$Z_PA THRURN 
00B68 EDT$$G_PA PENT: : 
OOB6C EDT$$G_PA ERRNO: : 
00870 EDT$$G_PA UpeclNgS* 
00874 EDT$$G_PA SPit 
00878 EDT$$2_PA BUF RNG; 
0087C EDT$$Z_PA ANDLSTHD : : 
00B80 EDT$$A_PA CURTOK:: | 
00B84 EDT$$G_PA Toa ype | 
00888 EDTS$A_PA_PRVTOK: : 
00B8C EDT$$G_PA Proce: 
00890 EDT$$G_PA_CURCMD: : 
00894 EDTS$$L “PA MURVAL 
tia EDT$$6_PA-NOOUO: : 
OOBAO EDT$$Z_PA Stk:: 
00€20 EDTSSG_RNG-MORELN:: 
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00E24 
00E28 


01208 
0120C 
01210 
01214 
01218 


4 52 


-BLKB 4 
EDT$$G_RNG paereaes 


BLK 
EDT$$G_RNG NOOFLN:: 
.BCKB 
EDTSS$L_RNG_EOL:: 
-BCKB 


-BLKB 
EDT$$Z_RNG_CURRNG: : 


.BCK 
EDT$$Z_RNG ORIGPOS:: 
.BCKB 


14 

-BLKB 2 
EDT$$Z_RNG_SAVPOS: : 
-BCKB 14 


“BLKB 2 
EDTS$¢_TiN ECHOFLG: 
EDT$$6_TIN ECHOPOS : 
EDT$$G_TIN_OBUFPOS:: 


-BLK 
EDTS$T_TIN OBUF:: 


.BCK 
EDTSSA_TIN IBUFPTR: 
EDTS$6_TIN TRECLEN: : 
EDT$$G_TIN_IRECEND:: 


-BCK 
EDTS$T_TIN_INREC:: 
.BCKB 256 
EDTS$T_SEA_STR:: 
.BCK 4 
EDTS$G_SEA STRLEN:: 
EDTSST_SUB STR: 
EDT$$G_SUB_STRLEN:: 
-BCKB 4 
EDTS$$L_10._VFCHD:: 
-BLKB 256 
EDT$$Z_wF DESC: 
EDTS$A_10_FNAM: : 
LKB 
EDT$$G 1081 NFND: : 
EDTS$A -XLATE ROUT 
EDTS$$G_XLATE ENV: : 
-BLK 
EDTSSA WORK ROUT: 
EDT$$G -WORK ENV: : 
EDTSS$A_FILE_ROUT: 
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1 | 
EDTSDATA EDTSDATA = Common Data Definitions 1b-se -1984 00:15:47 VAX-11 Bliss-32 V4 49° -74 Page | 
v04-000 Declarations 1e-8ep-1984 9: 52.  DISKSVMSMASTER:CEDT.S SRESDATA. BLI;1 : ise 
357 5 
EDT$$Z_EOB_LN== P.AAC 3 
ep TSH AE COvERes 1 5 
EDT$M_COMMAND== 2 3 
EDTSM-NOJOURNAL== 4 
EDT$M_NOOUTPUT== 8 3 
EDT$M_NOCOMMAND== 48 3 
EDT$M_ NOCREATE== 3 3 
EDT$$C_MAX_LINES== P.AAD ; 
EDTS$L-LNO-VFCMAX== P.AAE | : 
EDTSSL_LNO_ZERO== P.AAF 3 
ep Tae. LNO_BIG== P.AAG 3 
EDT$$L"LNO-EMPTY== P.AAH : 
EDTS$$L~LNOU== P.AAL | 
EDT$$L-LNO1== P.AAJ 
EDTS$L_LNO2== P.AAK | 
EDT$$L_LNO5== P.AAL 
EDTS$$L_-LNO4== P.AAM 
EDT$$L-LNOS== P.AAN 
EDT$$L_LNO6== P.AAO 
EDT$$L-LNO7== P. AAP 
EDTS$$L_LNO8== P.AAQ 
EDT$$L_LNO9== P.AAR 
EDT$$L-LNO10== P.AAS 
EDT$$L_LNO1 1== P.AAT 
Ep TSS LOI se P. AAU 
EDT$$L_LNO15== P.AAV 
EDTS$L~ _LNO14== AAW 
| 
$ PSECT SUMMARY 
; Name Bytes Attributes 
;  EDTSDATA 4874 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON, PIC,ALIGN(2) 
; EDTSCODE 746 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
; ABS. 0 NOVEC,NOWRT,NORD *NOEXE, NOSHR, LCL, ABS, CON,NOPIC,ALIGN(O) 
3 Library Statistics 
s A We OR Sy en a i, a Symbols wceeceeeco Pages Processing 
: File Total Loaded Percent Mapped Time 
; ~$255$DUA28: ERT Sac ERT heer! 377 104 4 49 9: 0.2 
: ~$255$0UA28:CEDT.SRCIPSECTS.L32;1 1 0 :00.1 
: 55$0UA28 EDT. SRCISUPPORTSL 3251 2 g 5 00: 0.1 
: 7$255$DUA28 :LEDT. SRC TRANSLATE .L 32; 1 6 2 57 00:00.1 
; ~$255$DUA28: (EDT. SRC IKEYPADDEF .L32;1 34 1 2 7 00:00.1 


r--- Se  —C“'e - . — 


‘WBe=b00" bd ott PM eae cpaaatitaicteh ites 18: sen-1984 99:43 es | Wd wSHAS TERS CEB E saCcSoarA.eLIs1 


; COMMAND QUALIFIERS 
; BLISS/CHECK=(FIELD,INITIAL,OPTIMIZE) /NOTRACEBACK/LIS=LIS$:DATA/OBJ=OBJ$:DATA MSRC$:DATA.BLI/UPDATE=(ENH$:DATA) 


Size: 0 code + 5620 data bytes 
Run Time: 00:32.9 
Elapsed Time: 00:43.9 
Lines/CPU Min: ghi8 16 
emery At tgs) 15010 
poneey Used: 207 pages 
Compilation Complete 
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